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MODULE EXTHDR ( 
LANGUAGE (BLI 
IDENT = ‘vQ4- 


BEGIN 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY : 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD,. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


:* IN N 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 


17:59:1 AX-11 Bliss 
15:23:48 F11X.BUGSR 
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' 


OTICE. THIS SOFTWARE OR ANY OTHER 


:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


!t TRANSFERRED. 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* CORPORATION. 


ie DIGITAL ASSUMES NO RESPONS 
ie SOFTWARE ON EQUIPMENT WHIC 


I 
H NOT SUPPLIED BY DIGITAL. 
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1 P 
FACILITY: 11ACP Structure Level 2 
i ABSTRACT: 


This routine creates an extension file header for the given file 
header. 


ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


¥ 
ee ee me ee met mmm emt 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 27-Jul-1977 10:15 
i MODIFIED BY: 


Modify creation of extension fcbs. 


4 

i V04-001 CDS0004 Christian D..Saether — 15-Nov-1984 
: Set reference count for new extension fcb to 1. 
v03-006 CDS0003 Christian D. Saether 14-Aug-1984 
i 


vie FOR THE USE OR RELIABILITY OF ITS 
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v04-001 “Oct-19 F11M.BUGSRCJEXTHDR, 832;1 (1) 

; 5 28 1! vO3-005 LMP0286 L. Mark Pilant, 26-Jul-1984 13:24 ; 
: 3 } Correct a broken CALL offset. : 
3; $8 61 1 i V03-004 ACG0415 C. Goldstein, _-Apr=1984 20:59 : 
; § 7s Set CLF_NOBUILD oy FCB nitialization, since ACL is : 
: o0 '6t4 : already there. : 
: 6 065 1: v03-003 ACG0408 Andrew C. Goldstein, 21-Mar-1984 11:40 ; 
; 6 0 1! Make APPLY_RVN end DEFA ULT_RVN macros; also fix handling ; 
2 1} of RVN in Back Link. : 
; 86 9 1! v03-002 cpso002 Christian D. Saether 18-Jan-1984 ; 
: 44 oy : } fod fy interface to SH AULT_R : 
: 69 007¢ 1 i vO3-001 cpso001 Christian D. Saether 30-Dec-1983 : 
; 4 Bee : } Use L_NORM Linkage and BIND “CORRON macro. : 
See 0075 1} v02-007 LMP0003 L. Mark Pilant, 11-Dec-1981 14:00 ; 
; 7 Bee : } Add suppport for cathedral windows. ; 
: 75 0078 1! V02-006 ACGO0167 Andrew C. Goldstein MS ede -1980 19:26 . 
> 7% 0079 1: revious revision history moved to f11B.REV 

: 77 0080 1 !ee 

; 78 0081 1 

; 79 boss 1 

3 80 008 1 LIBRARY ope set JORABN:L 18.32"; 

; 81 0084 1 REQUIRE ‘SRC$:FCPDEF.832'; 
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GLOBAL ROUTINE EXTEND_HEADER (FIB, OLD_HEADER, FCB, NEW VOLUME, BLOCKS_NEEDED) : L_NORM = 


le 
1 
FUNCTIONAL DESCRIPTION: 


This routine creates an extension file header for the given file 
header. 


CALLING SEQUENCE: 
EXTEND_HEADER (ARG1, ARG2, ARG3, ARG4, ARGS) 


INPUT PARAMETERS: 
ARG1: address of user FIB 
ARG2: address of present last file header 
ARGS: address of present Last FCB or 0 
ARG4: if not present, stay on present volume 
f present: 
if non-zero, force switch to given volume 
f zero, switch to any other volume 
ARGS: number of blocks needed on new volume 


IMPLICIT INPUTS: . 
CURRENT _WINDOW: address of file window or 0 
PRIMARY_FCB: primary FCB of file 
CURRENT_VCB: address of VCB of volume 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
address of new file header 


SIDE EFFECTS: 
file header created, window turned, FCB created 


elle ed tt td te te te tt tt te tt te tr te te te eee 


BEGIN 

MAP 
FIB : REF BBLOCK, ! user FIB arg 
OLD_HEADER : REF BBLOCK, ! file header arg 
FCB : REF BBLOCK; ! FCB arg 

LOCAL 
OLD_FID : BBLOCK CFIDSC_LENGTH), ! file ID of old header 
EXT_FID : BBLOCK LFIDSC_LENGTH), ! file ID of new header 
VBN, ! index file VBN of new header 
LBN ' LBN of new header 
HEADER : REF BBLOCK, buffer address of current file header 
NEW_HEADER : REF BBLOCK; ! address of new file header 


| 11 
EXTHDR B Jan AX-11 Bliss-32 V4.0-742 
V EX 


" 5 17:59: ss- Pa 
04-001 met i 15:23:45 F11X.BUGSRCJEXTHDR.B32; 1 ~ (2) 
Pe BIND_COMMON; 
t EXTERNAL ROUTINE 
4 INIT_FCB2 : L_NORM, ! initialize FCB 
4G TURN. WINDOW : LLNORM ADDRESSING MODE (GENERAL), ! update window 
45 ECRSUM : LINURM, ! checksum file header 
re SELECT VOLUME =: L_NORM, ! select new volume for use 
RK _DIRTY : LINORM, ! mark header for writeback 

CHARGE 9\'DTA : LINORM, ' charge user's disk quota 

CREATE_:_ADER : L_NORM, ; cree e a new file ID and header 

SWITCH VULUME : L_NORM, ! switch context to desired volume 

EAD_HEADER : LINORM, ' read file header 

CREATE_FCB : LUNORM; ! create an fcb. 


! Save the file ID of the current last header. If the file is accessed, fix 
! up the FCB if it is not the primary and turn the window to include blocks 
from the header if possible. Then prepare the old header for write-back. 


PPPS ASIII E 


CWONOVEWN—OO@ 


CHSMOVE (FIDSC_LENGTH, OLD _HEADERCFH2$W_FIDJ, OLD FID); 
OLD_FIDCFIDSW_RVN] = .OLD_FIDCFIDSW_RVNJ + .CURRERT_RVN; 


If .FCB NEQ 0 AND .FCB NEQ .PRIMARY_FCB 
THEN 


BEGIN 
CLEANUP _FLAGSCCLF _NOBUILD) = 1; 
KERNEL CALL CINIT_FCB2, .FCB, .OLD_HEADER); 


IF .CURRENT WINDOW NEQ 0 
THEN IF NOT .CURRENT WINDOWCWCBSV_ CATHEDRAL) 
THEN KERNEL_CALL (TURN_WINDOW, .CORRENT_WINDOW, .OLD_HEADER, .PRIMARY_FCBCFCBSL_FILESIZEJ, .FCBCFCBSL_STVBN) 


CHECKSUM (.OLD_HEADER) ; 


! Now create the new file ID. Map and read the corresponding block in the 
index file to extract the file sequence number; then punt the buffer. 


PEEPS LALLA LISNINR SS BS 5 ek te ee ee ek ohn oh ah ah eh eh ond 
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IF ACTUALCOUNT GEQU 4 
THEN 


BEGIN 
IF .NEW you use NEQ 0 
ano -F18 FIBSV_EXACT) 

SWITCH VOLUME (.NEW_VOLUME) 


- SELECT_VOLUME (.FIB, .BLOCKS_NEEDED); 


SNS NNNNOO: O 


NEW_HEADER = CREATE_HEADER (EXT_FID); 
LON = .HEADER_LBN; 


! Get back the old file header, which may or may not have been written out 
! due to buffer pool thrashing. Check the segment number for overflow. 
! Plug in the header extension Linkage and write it. 
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HEADER = READ HEADER (OLD. 
i Cette GeADERE 
CHEMOVE TFIDSC_LENGTH, EXT 
CHECKSUM (HEADER); 

MARK DIRTY (. HEADER): 

IF ACTUAL COUNT Geau 4 


G a5S8S' 
D, HEADERCFH2$W_EXT_FIDJ); 


BE Gi 
ol A ates (.NEW_FID_RVN); 


We now fabricate a buffer and copy the old header into it, thus 
keeping the attributes. Note that we truncate the Ident area to only the 
file name, to gain map pointer space. 


< 
m 
~ 
w 
— 
um 


. »HEADER, .NEW_HEADER); 


LBN; 
R = .NEW_ HEADER; 


IDSC LENGTH EXT_FID, NEW_WEADERCFH2$U_F1D]); 
FH2SB8_FID_RVN) = 0; 


= =—m= 
-> 

: aa 
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( 
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< 
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If this is the first extension header of the file, copy the file ID 
of the at into the back Link. Once there. it will propagate to 
succeeding extension headers. 


terme F 4m wToO 


IF .NEW_HEADERCFH2$W_SEG_NUM) EQL 0 
THEN 


BEGIN 
CHSMOVE (FIDSC_LENGTH, OLD_FID NEW HEADERCFH2SW.BACKL INK); 
DEFAULT _RVN (NEW_HEADERCFH2$W_8K_FIORVNJ, .CURRERT_RVN); 


! If we're already in an extension header, the RVN may have to be fixed 
up. if the new extension header is on a different volume. 


ELSE 
BEGIN 
APPLY_RVN (NEW _HEADERCFH2SW_BK_FIDRVN), .OLD_FIDCFID$SB_RVN)); 
DEFAUCT AVN CNEU_AEADERCF NCSU. BK_PIDRVA, . CORRENT_RVNJ; 
NEW_FID = 0; ! header extension is complete 
NEW MEADERCFH2SW_SEG_ NUM] = .NEW HEADER(FH2$W_SEG NUM) + 1; 
CHSFIL (0 att LENGTH, NEW_HEADER FROSUCEXT FDIS, 
NEW_HEADER(FH2$B_RAP §€) ="0; 
NEW_HEADERLFHOSV_CONTIG) = 0: 
NEW"HEADERLFHeSV-LOCKED) = 0: 
NEW-HEADERCFH2SB_MPOFFSET) = .NEW WEADERCFH2SB IDOFFSET] + 
(SBYTEOFFSET (FI2SW_REVISION)) / 2; 
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WH re ats Es ACOFF 
WOHEADERLFH2$B_RSOFF 


3b) 


= (SBYTEOFF 
= (SBYTEOFF 


CHSFILL (0, 512 = .NEW_HEADERCSH2SB_MPOFFSET]*2, .NEW_HEADER + .NEW_HEADERCFH2$8_MPOFFSETI#2); 


SE 


bere 12:88:9 
T (FHQSW_CHECKSUM)) / 
T (FH2SWOCHECKSUM)) / 


Now charge the user for the new extension header. 


CHARGE _QUOTA (.NEW_MEADERCFH2$L_F ILEQWNER), 
} Finally create an extension FCB if the file is accessed. 


IF .FCB NEG 0 
THEN 


BEGIN 
LOCAL 
NEWF CB 


NEWFCB CFCBSW_REFCNT) = 
NEWF CB tee rte ROASISD = 


FCB CFCBSL_EXFCB 
CURRENT eyeBe {vce 
END; 


RETURN (.NEW_HEADER) ; 
1 END; 


08 AE 8 i 


Cc AE 
08 AA 
01 AA 

00006 gf 


08 


AQ 
vl 


oc 
8 
C 
oc 


: REF BBLOCK; 
NEWFCB = CREATE_FCB (.NEW_HEADER); 


SASSAS 


on "oT @—-o-CcC rrvoonn 


AC 


8 
AC 


03 
Aa 


~" 


1 3 


-PRIMARY_FCB CFCBSL_LOCKBASIS); 
TRANS] = .CURRENT -VCB CVCBSW_TRANS] + 1; 


AX=-11 BLi 
F11X.BUGS 


! end of routine EXTEND_HEADER 


EY TENG HEADER. Save R2,R3,R4,R5,R6,R7,RB 


THDR 
\v04-001\ 


INIT FCB2, TURN WINDOW 
cme CRSA ELECT AY VOLUME 


MARK DI 
CREATE HEADERS 
READ_HEADER, 


SCODES ,NOWRT ,2 


g D_HEADER, R 
danas’ 


==" | & 


——- 


OL 
- OL 


$$-32 V4.0-742 
RCJEXTHOR.B32; 1 


1, BITLIST (QUOTA_CHECK, QUOTA_CHARGE)); 


E_QUOTA 
ire eYOLUne 


CREATE 


0 
D_FI 
D-FI 


+4 


fe] 
= 


o 


ee 
APOOooo 
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11 =11 Bliss=32 V4.0-742 (2) 
=Jan-1985 17:59: AX R.832;1 

foster t9gs bit8idd | ET tebesaesearnn 

> 1163 : 

1F 1 3 Bese BS. aacrty, 28 : 1164 

06 ED 00 vi. = FCB, _-RO : ; 

os C AC 00 Q005A oo 4 (RO) ; : 

" Ad DD 000 MOV BCBASED, RO 

mA DO 0 Pus S6CRO) : : 

“ AD BO ky PUSH OLD_HEADER : ; 

sf dD 00 8 aie a TURN_WINDOW + 1166 : 

04 FB 00040 siete 5 HEADER : : 

seamen” vi 08 AC DD 00K ; oe CALLS i “CHECKSUM ; 1172 : 

— 2 ge $f 008¢ CMP (AP), #4 ; 1175 

10 AC 0§ 0006) a ; 1176 

ty. : ’ 

50 cig i 1066 sist S2¢hO)y 38 ; 1178 : 

OA 0 40 F ; PUSHL W_VOLUME ; : 

0 AC dD Wie” SuiTCH_ VOLUME : 

i F CALLS #1, : 1180 : 

00006 CF OB i 33: PUSHL BLOCKS_NEEDED : 

Og ne DD 00078 CALLS #2, SELECT_VOLUME ; 1183 

06 CF 00, Bas: PUSHL SP f : 

os ie a ey tse : 

7 S6 0 09 ROVE <BOCBASE «LON : 1191 ; 

Aa : ; 

: Be At bo PUSHAB OLD_FID 

= Sk CALLS #2, READ HEADER  ate2 ; 

te, 7 % . CAPY G(HEADER) - #65535 ie ; 

FFFE BF 0 Af BI BLSSU  5$ 

oi CHAU = #2248 : 1196 : 

ne 0 AC S$: MOVES. «#6, EXT_FID, 16(WEADER) : 1196 

8 : ™ : . 

" 5? DD +! CALLS cee ; 1197 : 

00006 CF gfe 00088 a1 oe : 1198 ; 

JUUE . A 

00006 CF eB se CPB (AP), 4 1201 

“* 8 iF 200C2 PUSHL  =B4(BASE) he ? : 

ae s ! 

AC AA pp D00C7 CALL ‘ { Patt (NEW_HEADER) 2 154 : 

00006 CF 200 BF 28 000CC 6s: ROVE LBN, °~80 (BASE) : 1g 

670 8 D 30005 ROVE W_HEADER, 4 (BASE) > 121 , 

; ® 6 D0 00¢ ROVES BG. “EXTFI6, B(NEU. HEADER) ; 1214 

“ MA ; 000 A moves 1 new READER) ; 1221 : 

= o¢ Ke DOOOE Stu (NEW _READER) : 1224 

4 + Q R) ° : 

$$ ‘ roves #6, OLD_FID, 66(NEW_MEADE ; 1385 

o ea = i pM: ence BS HEADER) : 

05 12 O0¢ nove DAFIDe4 . 70(NEW, : 


411 
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; Name Bytes Attributes 
; 388 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


08 D00FD NEQ 9% 
oc i DOOFE rsa D.FIDe4 
¥V 
46 OA ifr CLR (NEW_HEADER) 
AO AA 46 6 0% iH 00107 98: chez #2; SOCNEW_MEADER) , -96 (BASE) 
le 
46 OA ‘ CLRB (NEW_HEADER) 
as Ae Be Ot } ape poet stale i ADER) 
06 00 6E , 09 5 * 1 MOVCS #0, (SP), #0, #6, 14(NEW_HEADER) 
A oA 0 CLRB. 0s S8(NEW_H 
34 6 CO oF ai OC BI cB Atta 5 i HEADER) 
01 Ab v3 A 81 00 ADDB #19 { W_HEADER), 1(NEW_HEADER) 
02 46 FREE BF 80 MOVw #65535, 2TNEW_HEADER) 
A6 9A OC MOVZBL 1 (NEW HEADER); RO 
} ee: Se 
1 00 MULL2 #2, RI 
1 0200 ¢ 00 AB -512(R1), RI 
7 6640 3€ 0014 MOVAW (NEW HEADER)(RO), R7 
51 00 6 C 00 46 movcS #0, TSP), #0, R1. (R7) 
3 po 0014¢ PUSHL #3 
sc kB DD O01 PUSHE — GO(NEU_ HEADER) 
00006 CF 03 F CALL 68 CHARGE_QUOTA 
0c at D TSTL =F 
1 BEQL Ss 
6 od D PUSHL NEW _HEADER 
00096 CF gg. : CALLS #1, CREATE FCB 
1 AO 1 64 mOVW #1, 24(NEWFCB) 
51 08 AA OD 58 MOVL B(BaSe), R1 
4c COA 4C Al OD $¢ MOVL 6(R1), 76(NEWFCB) 
5 oC ac D 1 mOVL «FCB, Af 
oc Al 50 i MOVL wECB, 12(R1) 
50 98 AA MOVL -1046(BASE), R 
oc ad 86 7D INCW =—-:12(RO) 
50 56 80 118 MOVL #§ NEW_HEADER, RO 
RET 
; Routine Size: 388 bytes, Routine Base: S$CODE$S + 0000 
; 28 1379 1 
5 1277 1 END 
; 5 1278 0 ELUDOM 
PSECT SUMMARY 
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Library Statistics 


emer ecoen Symbo l 5 seeeeecece Pages Proc ess i ng 
File Total Loaded Percent Mapped Time 
-$2558$0UA18:CSYSLIBILIB.L32;1 18619 45 0 1000 00:01.8 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS:EXTHDR/OBJ=OBJ$:EXTHDR MSRC$:EXTHDR/UPDATE=(BUGS:EXTHDR) 


Lines/CPU Min: 
Lerenes/CPU-Rin: 


piees 0b:98.8 + 0 data bytes 
alk. Time: ‘i 


Compiler? 
Compi A. Constena™ 


s2 
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